Imports DAO
Imports DTO

Public Class HoaDon_Bus

    Inherits AbstractBUS

    Public Function LayBang() As DataTable

        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim hdDao As New HoaDonDao()
        dt = hdDao.LayBang()
        Return dt

    End Function

    Public Function LayDanhSach() As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim hdDao As New HoaDonDao()
        ds = hdDao.LayDanhSach()
        Return ds

    End Function

    Public Sub CapNhatBang(ByVal dt As DataTable)

        'Kiem tra Business Rule neu co
        Dim hdDao As New HoaDonDao()
        hdDao.CapNhatBang(dt)

    End Sub

    Public Function TimKiem(ByVal mhd As Integer) As HoaDon_Dto

        'Kiem tra Business Rule neu co
        Dim hdDto As HoaDon_Dto
        Dim hdDao As New HoaDonDao()
        hdDto = hdDao.TimKiem(mhd)
        Return hdDto

    End Function

    Public Sub Them(ByVal hdDto As HoaDon_Dto)

        'Kiem tra Business Rule neu co
        Dim hdDao As New HoaDonDao()
        hdDao.Them(hdDto)

    End Sub

    Public Sub Xoa(ByVal mhd As Integer)

        'Kiem tra Business Rule neu co
        Dim hdDao As New HoaDonDao()
        hdDao.Xoa(mhd)

    End Sub

    Public Sub Sua(ByVal hdDto As HoaDon_Dto)

        'Kiem tra Business Rule neu co
        Dim hdDao As New HoaDonDao()
        hdDao.Sua(hdDto)

    End Sub

End Class